home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Contributed Scores / Mark Polishook / Herrick.3rd.part < prev    next >
Lisp/Scheme  |  1998-10-26  |  4KB  |  118 lines
  1. (setq pre-riff (gen-repeat 3 '(a e c e)))
  2. (setq riff '(a e c e -b (+1 -b)))
  3. (setq r.2 '(a e c e c e b (-1 b)))
  4. (setq r.3 '(a e -b (+1 -b) b (-1 b)))
  5. (setq r.4 '(a e c e))
  6. (setq r.5  '(a e c e c e (-1 f) e (-1 b) (-1 a)))
  7. (setq sub-master-riff (append riff r.2 r.3 r.4 r.5))
  8. (setq shuffled (eval-list (symbol-shuffle '(riff r.2 r.3 r.4 r.5) 0.14)))
  9. (setq riff-fib (gen-fibonacci 4 sub-master-riff shuffled))  
  10. (setq master-riff (append pre-riff riff-fib))
  11. (setq c-solo (symbol-transpose 7 (gen-repeat 3 (gen-loop '((1 2 1) (3 6 6)) '(c c c c c c c = = = = =)))))
  12. (setq c-solo.2 (symbol-transpose 8 (gen-repeat 2 (gen-loop '((1 2 1) (3 6 6)) '(c c c c c c c = = = = =)))))
  13. (setq c-solo.3 (symbol-transpose 9 (gen-loop '((1 2 1) (3 6 6)) '(c c c c c c c = = = = =)))) 
  14. (setq c.len (append (gen-repeat 7 '(1/16 1/16 -2/4)) '(1/8)))  ;  (make-zone c.len :ratio)   
  15.  
  16. (setq solo '(c g f b a d c f e d c g f = = b a d c f e d c g f b a d c = = d c g f = = h = g f = = = = f e d c = 
  17. = f e b a d c f e d c = = b a d c f e d c g = f e h = g f = = d c f e d c g = f e b a = = f e = = e d c g f b a d 
  18. c f e c g f e = d c f e d c = = = = = = g f b a d c f e g))
  19. (setq re-solo (symbol-repeat 2 solo))
  20. (setq looped-solo (gen-loop '(1 136 4) solo))
  21. (setq extend '(= f e b a = = f e = = e d c g f b a d c f e c g f e = d c f e d c = = = = = = g f b a d c f e g))
  22. (setq extend.b'(= f e h = g f = = d c f e d c g = f e b a = = f e = = e d c g f b a d c f e c g f e = 
  23.                 d c f e d c = = = = = = g f b a d c f e g))
  24. (def-soup 'soup
  25.   '((l l l l l l l l l l l l l l l l l l l l l l l l l =) (= = = =) (= = = l) (= = = k) (k k k k k k k k k k k k k k k k k k k k k k k k k = =) (= = = j) (j j j j j j j j j j j j j j j j j j j j j j j j j = =) (j j j j j j j j j j j j j j j j j j j j j j j j j j j = =))
  26.   '((= =) (l l l) (k k k) (j j j) (= = = =) (= = = =) (= = = =) (= = = =) (= = = =) (= = = =) (= = = =)))
  27. (setq wha (gen-catalyze 'soup 0.154))  
  28. (setq wham (gen-catalyze-variate '(transpose) 0.24))
  29.  
  30. (setq cello-solo (append c-solo c-solo.2 c-solo.3 wham));(length cello-solo) (/ 523.0 16) => 32.6875 => round to 33
  31.  
  32. ;  = = = = = = = = = = = = = = = = = = = = = = = = = = =
  33.  
  34. (def-symbol
  35.   vln re-solo
  36.   vlc (list '(c) '(e) '(g) '(i) '(k) '(hk) cello-solo) 
  37.   rh (list '(=) looped-solo extend.b) 
  38.   lh master-riff
  39. )
  40.  
  41. (def-length
  42.   vln '1/16
  43.   vlc (list '(5/8) '(3/8) '(5/8) '(3/8) '(1/8 -2/4) c.len '(1/16))
  44.   rh '1/16
  45.   lh '1/8
  46. )
  47.  
  48. (def-velocity
  49.   vln '60
  50.   vlc '((64) (64) (64) (64) (118) (118) (118))   
  51.   rh '60
  52.   lh '60
  53. )
  54.                  
  55. (def-zone
  56.   vln '(17/1 17/1)
  57.   vlc '(15/8 21/8 15/8 18/8 20/8 36/8 35/1)                                         
  58.   rh '(-2/1 544/16 59/4) 
  59.   lh '284/8
  60. )
  61.  
  62. (def-tonality
  63.   vln (activate-tonality (mixolydian a 6))
  64.   vlc (activate-tonality (mixolydian a 4))
  65.   rh (activate-tonality (mixolydian a 5))
  66.   lh (activate-tonality (mixolydian a 3))
  67. )
  68.  
  69. (def-tempo 112)
  70.  
  71. (compile-instrument-p "ccl;output:" "herrick.part.3"
  72.   vln
  73.   vlc
  74.   rh                    
  75.   lh
  76. )
  77.  
  78.  
  79. (setq extend.b'(= f e h = g f = = d c f e d c g = f e b a = = f e = = e d c g f b a d c f e c g f e = 
  80. d c f e d c = = = = = = g f b a d c f e g))
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94. #|
  95. (setq zit (symbol-trim 136 '(f e h = g f = = d c f e d c b a f e g f d c f e d c b a c h g i = h g d c f e h g f e i h = = 
  96. f e h g f e d c f e d c g f = = b a f e g f d c b a i = h g d c f e h g f e i h = = f e h g f e d c b a i 
  97. h f e h g f = = = = f e d c = = f e b a d c f e d c = = b a d c f e = d f e h = h f = = d c f e d c b 
  98. a f e h f d c f e d c b a c h (-1 h) i = h (-1 h) d c f e h (-1 h) f e i h = = f e h (-1 h) f e d c f 
  99. e d c (-1 h) f = = b a f e (-1 h) a f e (-1 h))))
  100. |#
  101.  
  102.  
  103.  
  104.   
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.